perm filename GROUP[1,JRA] blob
sn#015001 filedate 1972-12-01 generic text, type T, neo UTF8
00100 INF_OP: *,o,∪,∩,-;
00200 PRE_OP:G,K,e,f,↑,g,h,m;
00300 INF_PRED:↔,⊂,ε,=;
00350 PRE_PRED:s;
00400 EQUALITY:=;
00500 VAR: x,y,z,u,v,X,Y,Z,U,V;
00600 a1:x*(y*z)=(x*y)*z;
00700 a2:x=y ≡x*z =x*y;
00800 a3:x=y≡z*x=z*y;
00900 a6: x*e=x;
01000 a7:e*x=x;
01100 a8:x*↑(x)=e;
01200 a9:↑(x)*x =e;
01300 a10:↑(↑(x))=e;
01400 a11:(f(x,y)εx⊃f(x,y)εy)⊃x⊂y;
01500 a12:x⊂y ⊃(zεx ⊃z εy);
01600 a13:(zεx ∨ zεy) ⊃zε(x∪y);
01700 a14:zε(x∪y)⊃(zεx ∨zεy);
01800 a15:(zεx∧zεy)⊃zεx∩y;
01900 a16:zεx∩y ⊃(zεx∧zεy);
02000 a17:(zεx∧¬(zεy))⊃zεx-y;
02100 a18:zεx-y⊃(zεx∧¬(zεy));
02200 a19:(x⊂y∧y⊂x)≡ x↔y;
02300 a21:(((g(x)εx∧h(x)εx)⊃g(x)*h(x)εx)∧(g(x)εx ⊃↑(g(x))εx))⊃s(x);
02400 a22:s(z)⊃(eεz∧(xεz⊃↑(x)εz)∧(↑(x)εz⊃xεz));
02500 a23:s(z)⊃(x*yεz ∨¬xεz ∨ ¬yεz);
02600 a24:s(K);
02700 a25:xεK o z ⊃(x=m(x,z)*z ∧m(x,z)εK);
02800 a26:x*z εK o z∨¬xεK;
02900 THEOREM:(K o G ↔ K ≡ GεK);